CAAElliptical_VelocityAtPerihelion <-
function(e, a){
.Call("CAAElliptical_VelocityAtPerihelion", e, a)
}
